home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
gfx
/
imagedes.lha
/
imagedesk
/
installID
< prev
Wrap
Text File
|
1995-08-20
|
9KB
|
342 lines
; Install script for ImageDesk (Workbench 3.0 or higher)
(set @default-dest "work:ImageDesk")
(set #CDir "C:")
(set #KeyPath "S:")
;=============================================================================
; English strings
(set default_lang 4)
(set #bad-kick "I'm sorry. ImageDesk needs Amiga-OS 3.0 or higher")
(set #install-msg
(cat
"\n\nImageDesk installation script.\n"
"Please read 'ImageDesk.guide' after this installation.\n"
"ImageDesk ©1994-1995 Reinhard Haslbeck\n"
"All rights reserved."
)
)
(set #Proc-msg
(cat "Please choose one of the two program versions\n"
"which are listed below. The MC68020 version\n"
"should run on 030 and 040 machines too."
)
)
(set #Wicon-msg "Which kind of icons do you prefer?")
(set #Exit-msg
(cat "ImageDesk now has been installed.\n"
"If You wanna have JPEG support, You have to\n"
"install the 'Tower JPEG Codec' too.\n"
"You will find it in the directory 'JPEG Codec'."
)
)
(set #Copy020Msg "Copying 68020 version...")
(set #Copy000Msg "Copying 68000 version...")
(set #AskDirMsg "Please select a directory\nto install ImageDesk in")
(set #CopyComMsg "These are a few useful tools.\nDo You want to intstall them?")
(set #CopyKeyMsg "Installing keyfile...")
(set #DontCopyMSg "I'm going to install Your keyfile.\nDon't give it away, it includes some\nof Your personal data!")
(set #AskCatMsg "Do You want to install some Catalog examples?")
(set #PosMsg "Yes")
(set #NegMsg "No")
(set #CopyCatMsg "Copy these files?")
(set #AskCatDescMsg "Do You want me to copy the catalog\ndescription file for developers?")
(set #CopyCatDescMsg "Copying catalog description...")
(set #CopyICONMsg "Working on default project icon")
(set #ToolTypeMsg "Setting icon attributes")
(set #AskRexxMsg "Do You want to install some AREXX example scripts?")
;=============================================================================
; German strings
(if (= @language "deutsch")
(
(set default_lang 2)
(set #bad-kick "Zu dumm! ImageDesk benötigt leider Amiga-OS 3.0 oder höher")
(set #install-msg
(cat "\n\nImageDesk Installationsskript.\n"
"Nach dieser Installationsprozedur sollten\n"
"Sie unbedingt 'ImageDesk.guide' lesen.\n"
"ImageDesk ©1994-1995 Reinhard Haslbeck\n"
"All rights reserved."
)
)
(set #Proc-msg
(cat "Wählen Sie bitte welche der beiden untenstehenden\n"
"Programmversionen installiert werden soll.\n"
"MC68020 sollte auch auf 030 und 040 Maschinen laufen."
)
)
(set #Wicon-msg "Wählen Sie welche Icons\ninstalliert werden sollen.")
(set #Exit-msg
(cat "ImageDesk ist nun installiert.\n"
"Wenn Sie JPEG Unterstützung haben wollen, müssen\n"
"Sie den 'Tower JPEG Codec', ebenfalls installieren.\n"
"Er befindet sich im Verzeichnis 'JPEG Codec'."
)
)
(set #Copy020Msg "Kopiere 68020 Version...")
(set #Copy000Msg "Kopiere 68000 Version...")
(set #AskDirMsg "Wählen Sie bitte ein Verzeichnis in-\ndem Imagedesk Installiert werden soll")
(set #CopyComMsg "Dies sind einige nützliche Tools.\nSollen sie installiert werden?")
(set #CopyKeyMsg "Installiere Keyfile...")
(set #DontCopyMSg "Es wird nun das Keyfile kopiert. Geben\nSie es keinesfalls weiter, es sind einige\nIhrer persönlichen Daten darin enthalten!")
(set #AskCatMsg "Sollen einige Catalog Beispiele installiert werden?")
(set #PosMsg "Ja")
(set #NegMsg "Nein")
(set #CopyCatMsg "Diese Dateien Kopieren?")
(set #AskCatDescMsg "Soll die Katalogbeschreibung\nfür Entwickler kopiert werden?")
(set #CopyCatDescMsg "Kopiere Katalogbeschreibung")
(set #CopyICONMsg "Arbeite am default project icon")
(set #ToolTypeMsg "Setze Icon-Attribute")
(set #AskRexxMsg "Sollen einige AREXX Beispiele installiert werden?")
))
;=============================================================================
; make sure we are running under a 3.0 OS
(if (< (/ (getversion) 65536) 39)
(
(abort #bad-kick)
))
;=============================================================================
(message #install-msg)
(set ProcVers (askchoice
(prompt #Proc-msg)
(help @askchoice-help)
(choices "MC68020" "MC68000")
)
)
(set WhichIcons (askchoice
(prompt #Wicon-msg)
(help @askchoice-help)
(choices "Standard" "MagicWB-Style")
)
)
(set @default-dest (askdir
(prompt #AskDirMsg)
(help @askdir-help)
(default @default-dest)
)
)
(complete 10)
;====== copy english stuff ======
(if (= default_lang 4)
(
(copyfiles
(prompt "Copying guide file...")
(help @copyfiles-help)
(source "InstData/ImageDeskE.guide")
(dest @default-dest)
(newname "ImageDesk.guide")
(infos)
(confirm)
)
(if (exists "InstData/OrderForm")
(
(copyfiles
(prompt "Copying OrderForm file...")
(help @copyfiles-help)
(source "InstData/OrderForm")
(dest @default-dest)
(newname "OrderForm")
(infos)
(confirm)
)
))
))
;====== copy German stuff ======
(if (= default_lang 2)
(
(copyfiles
(prompt "Kopiere guide Datei...")
(help @copyfiles-help)
(source "InstData/ImageDeskD.guide")
(dest @default-dest)
(newname "ImageDesk.guide")
(infos)
(confirm)
)
(if (exists "InstData/Bestellformular")
(
(copyfiles
(prompt "Kopiere Bestellformular...")
(help @copyfiles-help)
(source "InstData/Bestellformular")
(dest @default-dest)
(newname "Bestellformular")
(infos)
(confirm)
)
))
))
(complete 30)
;====== install 68020 version =====
(if (= ProcVers 0)
;then
(copyfiles
(prompt #Copy020Msg)
(help @copyfiles-help)
(source "InstData/ImageDesk.020")
(dest @default-dest)
(newname "ImageDesk")
(infos)
(confirm)
)
;)
;====== install 68000 version =====
;else
(copyfiles
(prompt #Copy000Msg)
(help @copyfiles-help)
(source "InstData/ImageDesk.000")
(dest @default-dest)
(newname "ImageDesk")
(infos)
(confirm)
)
)
(complete 40)
;== install default project icon ==
(if (= WhichIcons 0)
;then Standard Icons
(copyfiles
(prompt #CopyICONMsg)
(help @copyfiles-help)
(source "InstData/ID_DefProjIcon.info")
(dest @default-dest)
(newname "ID_DefProjIcon.info")
(confirm)
)
;else MagicWBIcons
(
(copyfiles
(prompt #CopyICONMsg)
(help @copyfiles-help)
(source "InstData/ID_DefProjIconMWB.info")
(dest @default-dest)
(newname "ID_DefProjIcon.info")
(confirm)
)
(copyfiles
(prompt #CopyICONMsg)
(help @copyfiles-help)
(source "InstData/ImageDeskMWB.info")
(dest @default-dest)
(newname "ImageDesk.info")
(confirm)
)
)
)
(tooltype
(prompt #ToolTypeMsg)
(help @tooltype-help)
(dest (tackon @default-dest "ID_DefProjIcon"))
(setdefaulttool (tackon @default-dest "ImageDesk"))
(confirm)
)
(complete 50)
;====== install Catalog tools =====
(copyfiles
(prompt #CopyComMsg)
(help @copyfiles-help)
(source "InstData/c/")
(dest #CDir)
(all)
(confirm 1)
)
(complete 70)
;====== Copy example Catalogs =====
(if (askbool (prompt #AskCatMsg) (choices #PosMsg #NegMsg) (help @askbool-help))
(
(copyfiles
(prompt #CopyCatMsg)
(help @copyfiles-help)
(source "InstData/example/")
(dest (tackon @default-dest "example"))
(all)
(confirm 1)
)
))
(complete 80)
;====== Copy catalog description =====
(if (askbool (prompt #AskCatDescMsg) (choices #PosMsg #NegMsg) (help @askbool-help))
(
(copyfiles
(prompt #CopyCatDescMsg)
(help @copyfiles-help)
(source "InstData/CatDescription")
(dest @default-dest)
(newname "CatDescription")
(infos)
(confirm)
)
))
(complete 85)
;====== Copy rexx Scripts =====
(if (askbool (prompt #AskRexxMsg) (choices #PosMsg #NegMsg) (help @askbool-help))
(
(copyfiles
(prompt #CopyCatMsg)
(help @copyfiles-help)
(source "InstData/rexx/")
(dest (tackon @default-dest "rexx"))
(all)
(confirm 1)
)
))
(complete 90)
;====== install keyfile ========
(if (= (run "GetEnv KEYPATH") 0)
(
(set #KeyPath (getenv "KEYPATH"))
)
)
(if (exists "s/ImageDesk.Key")
(
(message #DontCopyMsg)
(copyfiles
(prompt #CopyKeyMsg)
(help @copyfiles-help)
(source "s/ImageDesk.Key")
(dest #KeyPath)
(newname "ImageDesk.Key")
)
)
)
(message #exit-msg)
(complete 100)